From: Katsumi Yamaoka <yamaoka@jpl.org>
Date: Fri, 8 Oct 2010 01:51:08 +0000 (+0000)
Subject: shr.el (shr-table-widths): Don't use cl function `reduce'.
X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1~1^2~324^2~6205
X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:///%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:/?a=commitdiff_plain;h=3c9e0a7e59f758825533d8844418b6a21c2b71d7;p=emacs.git

shr.el (shr-table-widths): Don't use cl function `reduce'.
---

diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog
index 48da29a1492..9305499cba8 100644
--- a/lisp/gnus/ChangeLog
+++ b/lisp/gnus/ChangeLog
@@ -1,3 +1,7 @@
+2010-10-08  Katsumi Yamaoka  <yamaoka@jpl.org>
+
+	* shr.el (shr-table-widths): Don't use cl function `reduce'.
+
 2010-10-07  Lars Magne Ingebrigtsen  <larsi@gnus.org>
 
 	* shr.el (require): Require cl when compiling.
diff --git a/lisp/gnus/shr.el b/lisp/gnus/shr.el
index bb25a6c802d..ffc27e92ccd 100644
--- a/lisp/gnus/shr.el
+++ b/lisp/gnus/shr.el
@@ -548,8 +548,8 @@ Return a string with image data."
 	  (aset natural-widths i (max (aref natural-widths i)
 				      (cadr column)))
 	  (setq i (1+ i)))))
-    (let ((extra (- (reduce '+ suggested-widths)
-		    (reduce '+ widths)))
+    (let ((extra (- (apply '+ (append suggested-widths nil))
+		    (apply '+ (append widths nil))))
 	  (expanded-columns 0))
       (when (> extra 0)
 	(dotimes (i length)